home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / C / Applications / UIFlow 1.0.1 / UIFlow Source / VSet2.0 / temp / vsetf.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-12-12  |  8.0 KB  |  324 lines  |  [TEXT/????]
  1. /*****************************************************************************
  2. * 
  3. *              NCSA HDF Vset release 2.1
  4. *                    May 1991
  5. *
  6. * NCSA HDF Vset release 2.1 source code and documentation are in the public
  7. * domain.  Specifically, we give to the public domain all rights for future
  8. * licensing of the source code, all resale rights, and all publishing rights.
  9. * 
  10. * We ask, but do not require, that the following message be included in all
  11. * derived works:
  12. * 
  13. * Portions developed at the National Center for Supercomputing Applications at
  14. * the University of Illinois at Urbana-Champaign.
  15. * 
  16. * THE UNIVERSITY OF ILLINOIS GIVES NO WARRANTY, EXPRESSED OR IMPLIED, FOR THE
  17. * SOFTWARE AND/OR DOCUMENTATION PROVIDED, INCLUDING, WITHOUT LIMITATION,
  18. * WARRANTY OF MERCHANTABILITY AND WARRANTY OF FITNESS FOR A PARTICULAR PURPOSE
  19. * 
  20. *****************************************************************************
  21. * Likkai Ng May 1991  NCSA 
  22. *
  23. * vsetf.c
  24. * Part of the HDF VSet interface.
  25. *
  26. ************************************************************************/
  27.  
  28. /*
  29. #include <ctype.h> 
  30. */
  31.  
  32. #include "vg.h"
  33. /* 
  34. ** ==================================================================
  35. ** PRIVATE data areas and routines
  36. ** ==================================================================
  37. **/
  38.  
  39. /*
  40. stores sizes of local machine's known types 
  41. */
  42.  
  43. PRIVATE int local_sizetab[] = 
  44. {
  45.         LOCAL_UNTYPEDSIZE,
  46.         LOCAL_CHARSIZE,
  47.         LOCAL_INTSIZE,
  48.         LOCAL_FLOATSIZE,
  49.         LOCAL_LONGSIZE,
  50. };
  51.  
  52. PRIVATE SYMDEF rstab[] = 
  53. {
  54.         "PX",LOCAL_FLOATTYPE,    IEEE_FLOATSIZE, 1,
  55.         "PY",LOCAL_FLOATTYPE,    IEEE_FLOATSIZE, 1,
  56.         "PZ",LOCAL_FLOATTYPE,    IEEE_FLOATSIZE, 1,
  57.  
  58.         "IX",LOCAL_INTTYPE,        IEEE_INT16SIZE, 1,
  59.         "IY",LOCAL_INTTYPE,        IEEE_INT16SIZE, 1,
  60.         "IZ",LOCAL_INTTYPE,        IEEE_INT16SIZE, 1,
  61.  
  62.         "NX",LOCAL_FLOATTYPE,    IEEE_FLOATSIZE, 1,
  63.         "NY",LOCAL_FLOATTYPE,    IEEE_FLOATSIZE, 1,
  64.         "NZ",LOCAL_FLOATTYPE,    IEEE_FLOATSIZE, 1,
  65.  
  66. };
  67.  
  68. #define NRESERVED ( sizeof(rstab)/sizeof(SYMDEF) )
  69. #define SIZETAB_SIZE sizeof(local_sizetab)/sizeof(int)
  70.  
  71. /*
  72. ** returns the machine size of a field type
  73. */
  74.  
  75. int SIZEOF (x)
  76.  
  77. int x;
  78. {
  79.  
  80.     if (x<0 || x>SIZETAB_SIZE-1) {
  81.         return(FAIL);
  82.         }
  83.     else {
  84.         return(local_sizetab[x]);
  85.         }
  86. } /* SIZEOF */
  87.  
  88.  
  89. /* ------------------------------------------------------------------ */
  90. /*
  91. ** sets the fields in a vdata for reading or writing
  92. ** RETURNS -1 if error, and 1 if ok.
  93. ** truncates each field to max length of  FIELDNAMELENMAX.
  94. */
  95.  
  96. PUBLIC int VSsetfields (vs,fields)        /*@-@*/
  97.  
  98. VDATA *vs;
  99. char    *fields;
  100. {
  101.     char  **av;
  102.     int     ac, i,j,found, order;
  103.     VREADLIST     rlist;
  104.     VWRITELIST  wlist;
  105.  
  106.     if (vs==NULL) return(FAIL);
  107.     if (scanattrs(fields,&ac,&av) < 0) {
  108.         sprintf(sjs,"@bad fields string [%s]\n",fields);
  109.         zj;
  110.         return(FAIL); /* bad fields string */
  111.     }
  112.     if (ac==0) return(FAIL);
  113.  
  114.     if (vs->access == 'w') { /* ===== W R I T E  access ============== */
  115.         if ( vs->nvertices > 0) {
  116.             sprintf(sjs,"@\t*cannot set fields - data already exists\n");
  117.             zj;
  118.             return(FAIL);
  119.         }
  120.  
  121.         wlist        = vs->wlist;
  122.         wlist.ivsize = 0;
  123.         wlist.n      = 0;
  124.         for(i=0;i<ac;i++) {
  125.             /* --- first look in the reserved symbol table --- */
  126.             for(found=0,j=0;j<NRESERVED;j++)
  127.                 if (!strcmp(av[i], rstab[j].name)) {
  128.                     found = 1;
  129.  
  130.                     strcpy( wlist.name[wlist.n],rstab[j].name);
  131.                     order = rstab[j].order;
  132.                     wlist.type[wlist.n]  =  rstab[j].type;
  133.                     wlist.order[wlist.n] =  order;
  134.                     wlist.esize[wlist.n] =  order * SIZEOF(rstab[j].type);
  135.                     wlist.isize[wlist.n] =  order * rstab[j].isize;
  136.                     wlist.ivsize  += wlist.isize[wlist.n];
  137.                     wlist.n++;
  138.                     break;
  139.                 }
  140.  
  141.             /* --- now look in the user's symbol table --- */
  142.             if(!found) {
  143.                 for(found=0,j=0;j<vs->nusym;j++)
  144.                     if (!strcmp(av[i], vs->usym[j].name)) {
  145.                         found = 1;
  146.  
  147.                         strcpy (wlist.name[wlist.n],vs->usym[j].name);
  148.                         order = vs->usym[j].order;
  149.                         wlist.type[wlist.n]  =  vs->usym[j].type;
  150.                         wlist.order[wlist.n] = order;
  151.                         wlist.esize[wlist.n] = order * SIZEOF(vs->usym[j].type);
  152.                         wlist.isize[wlist.n] = order *  vs->usym[j].isize;
  153.                         wlist.ivsize+= wlist.isize[wlist.n];
  154.                         wlist.n++;
  155.                         break;
  156.                     }
  157.             }
  158.             if (!found) {    /* field is not a defined field - error  */
  159.                 sprintf(sjs,"@Vsetfield:field [%s] unknown\n",av[i]);
  160.                 zj;
  161.                 return(FAIL);
  162.             }
  163.         }
  164.  
  165.         /* *********************************************************** */
  166.         /* ensure fields with order>1 are alone  */
  167.         for (j=0,i=0;i<wlist.n;i++)
  168.             if (wlist.order[i] >1 && wlist.n != 1) {
  169.                 sprintf(sjs,"@Vsetf: [%s] in [%s] has order %d. error.\n",
  170.                     wlist.name[i], fields, wlist.order[i]);
  171.                 zj;
  172.                 return(FAIL);
  173.             }
  174.         /* *********************************************************** */
  175.  
  176.         /* compute and save the fields' offsets */
  177.         for (j=0,i=0;i<wlist.n;i++) {
  178.             wlist.off[i] =j;
  179.             j += wlist.isize[i];
  180.         }
  181.  
  182.         /* copy from wlist (temp) into vdata */
  183.         movebytes((unsigned char*) &(wlist), (unsigned char*) &(vs->wlist),sizeof(wlist));
  184.  
  185.         return(1); /* ok */
  186.  
  187.     } /* "w" */
  188.  
  189.     else if (vs->access == 'r') {  /* ===== R E A D  access ============== */
  190.  
  191.         rlist   = vs->rlist;
  192.         rlist.n = 0;
  193.         for (i=0;i<ac;i++) {
  194.             for (found=0,j=0;j<vs->wlist.n;j++)
  195.                 if (!strcmp(av[i], vs->wlist.name[j]) ) {/*  see if field exist */
  196.                     found = 1;
  197.  
  198.                     rlist.item[rlist.n] = j; /* save as index into wlist->name */
  199.                     rlist.n++;
  200.                     break;
  201.                 }
  202.             if (!found)  {    /* field does not exist - error */
  203.                 sprintf(sjs,"@Vsetfield: field [%s] does not exist in vs\n",
  204.                     av[i]);
  205.                 zj;
  206.                 return(FAIL);
  207.             }
  208.         }
  209.  
  210.         /* copy from rlist (temp) into vdata */
  211.         movebytes((unsigned char*) &(rlist), (unsigned char*) &(vs->rlist),sizeof(rlist));
  212.  
  213.         return(1); /* ok */
  214.  
  215.     } /* "r" */
  216.  
  217. } /* VSsetfields */
  218.  
  219. /* ------------------------------------------------------------------ */
  220. /* 
  221. ** defines a (one) new field within the vdata 
  222. */
  223.  
  224. PUBLIC int VSfdefine (vs, field, localtype, order)    /*@-@*/
  225.  
  226. VDATA *vs;
  227. char  *field;
  228. int   localtype, order;
  229. {
  230.     char **av;
  231.     int  ac;
  232.     char *ss;
  233.     int j, usymid, replacesym;
  234.  
  235.     if (vs==NULL) return(FAIL);
  236.  
  237.     if (scanattrs(field,&ac,&av) < 0) {
  238.         sprintf(sjs,"@bad field string [%s] in Vfdefine\n",field);
  239.         zj;
  240.         return(FAIL);
  241.     }
  242.     if (ac!=1) return(FAIL); /* only one field item can be defined per call */
  243.  
  244.     if (order <1 || order > 1000) {
  245.         sprintf(sjs,"@VSfdefine: error order %d\n",order);
  246.         zj;
  247.         return(FAIL);
  248.     }
  249.  
  250.     /* 
  251.     ** check for any duplicates 
  252.     */
  253.     /* --- first look in the reserved symbol table --- */
  254.     for (j=0;j<NRESERVED;j++)
  255.         if (!strcmp(av[0], rstab[j].name)) {
  256.             sprintf(sjs,"@VSfdefine warning: predefined field [%s] redefined.\n",
  257.             av[0]); zj;
  258.             break;
  259.            }
  260.     /* --- then look in the user's symbol table --- */
  261.     for (replacesym = 0,j=0;j<vs->nusym;j++)
  262.         if (!strcmp(av[0], vs->usym[j].name)) {
  263.             sprintf(sjs,"@VSfdefine warning: field [%s] redefined.\n",av[0]); zj;
  264.             replacesym = 1;
  265.             break;
  266.            }
  267.  
  268.    if (replacesym)  
  269.         usymid = j; /* new definition will replace old at this index */
  270.    else 
  271.         usymid = vs->nusym;
  272.  
  273.     switch (localtype) {
  274.  
  275.     case LOCAL_FLOATTYPE:
  276.         vs->usym[usymid].isize  =    IEEE_FLOATSIZE;
  277.         break;
  278.     case LOCAL_INTTYPE:
  279.         vs->usym[usymid].isize  =    IEEE_INT16SIZE;
  280.         break;
  281.     case LOCAL_CHARTYPE:
  282.         vs->usym[usymid].isize  =    IEEE_CHARSIZE;
  283.         break;
  284.     case LOCAL_LONGTYPE:
  285.         vs->usym[usymid].isize  =    IEEE_INT32SIZE;
  286.         printf("@Vfdefine: [%s] defined as long \n",av[0]);
  287.         break;
  288.     default:
  289.         sprintf(sjs,"@Vfdefine: bad type (=%d) for [%s]\n",localtype,av[0]);
  290.         zj;
  291.         return(FAIL);
  292.         break;
  293.  
  294.     } /* switch */
  295.  
  296.     j  = strlen(av[0])+1;
  297.  
  298.     if( (ss = (char*) DFIgetspace(j))==NULL)
  299.         return(FAIL);                          /* cannot alloc space */
  300.  
  301.         
  302.     strcpy(ss,av[0]);
  303.     vs->usym[usymid].name  = ss;
  304.     vs->usym[usymid].type  = localtype;
  305.     vs->usym[usymid].order = order;
  306.  
  307.    /* prevent user-symbol table overflow */
  308.     if (vs->nusym >=USYMMAX) {
  309.         sprintf(sjs,"@VSFDEFINE: %d too many symbols\n",vs->nusym); zj;
  310.         for(j=0;j<vs->nusym;j++)
  311.             { sprintf(sjs,"@ sym: %d [%s]\n",j,vs->usym[j]); zj; }
  312.         return(FAIL);
  313.     }
  314.  
  315.     /* increment vs->nusym only if no user field has been redefined */
  316.     if (!replacesym) vs->nusym++;
  317.  
  318.    return(1); /* ok */
  319.  
  320. } /* VSfdefine */
  321.  
  322. /* ------------------------------------------------------------------ */
  323.  
  324.